#!/usr/bin/perl
use Encode;
use strict;

my $str = "中国";

print "$str\n";
print length $str;

#------------------------------
$str = Encode::decode("utf8", $str);
print "$str\n";
print length $str;

Encode::_utf8_on($str);
print "$str\n";
print length $str;

